﻿Public Class WfCadastro
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If IsPostBack = False Then
            listaEstado()
        End If

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim objDesp As New Despachante
        Dim objDespDao As New DespachateDAO
        Dim objCidadeDao As New CidadeDAO

        Try
            objDesp.FantasiaDesp = tbfantasia.Text
            objDesp.EmailDesp = tbemail.Text
            objDesp.TelDesp = tbtel.Text
            objDesp.EndDesp = tbend.Text
            objDesp.CpfCnpjDesp = tbcpf.Text
            objDesp.SenhaDesp = tbsenha.Text
            objDesp.StatusDesp = "Bloqueado"
            objDesp.Cidade = objCidadeDao.SelectCidadeNome(ListCidade.SelectedValue.ToString)

            objDespDao.Inserir(objDesp)
            lbmsg.Text = "Cliente salvo com sucesso !"

        Catch ex As Exception
            lbmsg.ForeColor = Drawing.Color.Red
            lbmsg.Text = "Erro ao Salvar Cliente !"
        End Try




    End Sub

    Protected Sub DropEstado_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DropEstado.SelectedIndexChanged
        Dim objCidadeDao As New CidadeDAO
        Dim lista As New List(Of Cidade)
        Dim objEst As New Estado
        Dim objEstDao As New EstadoDAO
        objEst.NomeEst = DropEstado.SelectedItem.Text
        objEst = objEstDao.SelectEstadoNome(objEst)

        If DropEstado.SelectedValue = "neutro" Then

            ListCidade.Visible = False
        Else
            lista = objCidadeDao.ListaCidadeEstado(objEst.CodEst)
            ListCidade.Visible = True
        End If

        ListCidade.Items.Clear()

        For Each cid As Cidade In lista
            ListCidade.Items.Add(cid.NomeCid)
        Next
    End Sub

    Public Sub listaEstado()

        Dim lista As New List(Of Estado)
        Dim objEstadoDao As New EstadoDAO

        lista = objEstadoDao.ListaTodos
        For Each est As Estado In lista
            DropEstado.Items.Add(est.NomeEst)
        Next

    End Sub

End Class